Private Sub BtnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRead.Click
        Dim input As IO.StreamReader
        Dim songsrated(100) As String
        Dim songNum As Integer
        If IO.File.Exists("results.txt") Then
            input = IO.File.OpenText("results.txt")

            Do While input.Peek <> -1
                songsrated(songNum) = input.ReadLine()
                songNum = songNum + 1
            Loop
        End If
        ' artifically show all elements of the array
        Dim cnt As Integer
        For cnt = 0 To songNum - 1
            MsgBox(songsrated(cnt))

        Next cnt

    End Sub